home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / extensions / procs / _fade2.amos / _fade2.amosSourceCode
Encoding:
AMOS Source Code  |  2008-12-11  |  459 b   |  18 lines
  1. Load Iff "dh0:__sourcecodes/.jdsources/bc.pic",1
  2. Wait 5
  3. Screen Open 0,Screen Width,Screen Height,Screen Colour,Screen Mode
  4. Wait 5
  5. Get Palette 1 : Flash Off : Curs Off 
  6. S=1 : D=0 : TX=0 : TY=0 : BX=Screen Width : BY=Screen Height : W=10 : H=10
  7. F=3
  8. BLOCKIN[S,D,TX,TY,BX,BY,W,H,F]
  9.  
  10. Procedure BLOCKIN[S,D,TX,TY,BX,BY,W,H,F]
  11. Def Scroll 1,TX,TY To BX,BY,0,-1
  12. For Y=0 To BY
  13.    Screen Copy S,0,Y,BX,Y+1 To D,0,BY-1
  14.    Wait Vbl 
  15.    Scroll 1
  16.    Wait Vbl 
  17. Next 
  18. End Proc